home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / Organnel Charts™ / card_4098.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  10.2 KB  |  495 lines
  1. -- card: 4098 from stack: in
  2. -- bmap block id: 5170
  3. -- flags: 0000
  4. -- background id: 2577
  5. -- name: Major
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=199 top=53 right=79 bottom=307
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: field1
  20. ----- HyperTalk script -----
  21. function firstline
  22. put line 1 of "field1" of card "Major" into card field "header" of card "Level"
  23. end firstline
  24.  
  25.  
  26. -- part 2 (field)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=309 top=98 right=124 bottom=414
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 3
  34. -- text size: 9
  35. -- style flags: 0
  36. -- line height: 12
  37. -- part name: field2
  38.  
  39.  
  40. -- part 3 (field)
  41. -- low flags: 00
  42. -- high flags: 0000
  43. -- rect: left=77 top=157 right=183 bottom=180
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 3
  48. -- text size: 9
  49. -- style flags: 0
  50. -- line height: 12
  51. -- part name: field3
  52.  
  53.  
  54. -- part 4 (field)
  55. -- low flags: 00
  56. -- high flags: 0000
  57. -- rect: left=202 top=158 right=184 bottom=306
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 3
  62. -- text size: 9
  63. -- style flags: 0
  64. -- line height: 12
  65. -- part name: field4
  66.  
  67.  
  68. -- part 6 (field)
  69. -- low flags: 00
  70. -- high flags: 0000
  71. -- rect: left=17 top=209 right=234 bottom=123
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 3
  76. -- text size: 9
  77. -- style flags: 0
  78. -- line height: 12
  79. -- part name: field6
  80.  
  81.  
  82. -- part 7 (field)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=139 top=209 right=235 bottom=243
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 3
  90. -- text size: 9
  91. -- style flags: 0
  92. -- line height: 12
  93. -- part name: field7
  94.  
  95.  
  96. -- part 8 (field)
  97. -- low flags: 00
  98. -- high flags: 0000
  99. -- rect: left=268 top=209 right=236 bottom=373
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 3
  104. -- text size: 9
  105. -- style flags: 0
  106. -- line height: 12
  107. -- part name: field8
  108.  
  109.  
  110. -- part 9 (field)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=388 top=209 right=235 bottom=494
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 3
  118. -- text size: 9
  119. -- style flags: 0
  120. -- line height: 12
  121. -- part name: field9
  122.  
  123.  
  124. -- part 11 (button)
  125. -- low flags: 00
  126. -- high flags: 0006
  127. -- rect: left=245 top=79 right=100 bottom=265
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: New Button
  136. ----- HyperTalk script -----
  137. on mousedown
  138.   set hilite of button id 11 to true
  139.   wait 20
  140. end mousedown
  141.  
  142.  
  143.  
  144. on mouseUp
  145.   visual effect dissolve
  146.   set hilite of button id 11 to false
  147.   put line 1 of card field "field1" && line 2 of card field "field1" into card field "header" of card "Level1"
  148.   go to card "Level1"
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 12 (button)
  154. -- low flags: 00
  155. -- high flags: 0006
  156. -- rect: left=118 top=138 right=152 bottom=137
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: New Button
  165. ----- HyperTalk script -----
  166. on mousedown
  167.   set hilite of button id 12 to true
  168.   wait 20
  169. end mousedown
  170.  
  171. on mouseUp
  172.   set hilite of button id 12 to false
  173.   visual effect dissolve
  174.   put line 1 of card field "field3" && line 2 of card field"field3" into card field "header" of card "Level2a"
  175.   go to card "Level2a"
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 13 (button)
  181. -- low flags: 00
  182. -- high flags: 0006
  183. -- rect: left=245 top=138 right=153 bottom=263
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: New Button
  192. ----- HyperTalk script -----
  193. on mousedown
  194.   set hilite of button id 13 to true
  195.   wait 20
  196. end mousedown
  197.  
  198.  
  199. on mouseUp
  200.   set hilite of button id 13 to false
  201.   visual effect dissolve
  202.   put line 1 of card field "field4" && line 2 of card field "field4" into card field "header" of card "Level2b"
  203.   go to card "Level2b"
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 14 (button)
  209. -- low flags: 00
  210. -- high flags: 0006
  211. -- rect: left=375 top=137 right=152 bottom=393
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: New Button
  220. ----- HyperTalk script -----
  221. on mousedown
  222.   set hilite of button id 14 to true
  223.   wait 20
  224. end mousedown
  225. on mouseUp
  226.   set hilite of button id 14 to false
  227.   visual effect dissolve
  228.   put line 1 of card field "field5" && line 2 of card field "field5" into card field "header" of card "Level2c"
  229.   go to card "Level2c"
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 15 (button)
  235. -- low flags: 00
  236. -- high flags: 0006
  237. -- rect: left=59 top=188 right=203 bottom=77
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: New Button
  246. ----- HyperTalk script -----
  247. on mousedown
  248.   set hilite of button id 15 to true
  249.   wait 20
  250. end mousedown
  251.  
  252. on mouseUp
  253.   set hilite of button id 15 to false
  254.   visual effect dissolve
  255.   put line 1 of card field "field6" && line 2 of card field "field6" into card field "header" of card "Level2d"
  256.   go to card "Level2d"
  257. end mouseUp
  258.  
  259.  
  260.  
  261. -- part 16 (button)
  262. -- low flags: 00
  263. -- high flags: 0006
  264. -- rect: left=180 top=188 right=205 bottom=199
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 1
  268. -- font id: 0
  269. -- text size: 12
  270. -- style flags: 0
  271. -- line height: 16
  272. -- part name: New Button
  273. ----- HyperTalk script -----
  274. on mousedown
  275.   set hilite of button id 16 to true
  276.   wait 20
  277. end mousedown
  278.  
  279. on mouseUp
  280.   set hilite of button id 16 to false
  281.   visual effect dissolve
  282.   put line 1 of card field "field7" && line 2 of card field "field7" into card field "header" of card "Level2e"
  283.   go to card "Level2e"
  284. end mouseUp
  285.  
  286.  
  287.  
  288. -- part 17 (button)
  289. -- low flags: 00
  290. -- high flags: 0006
  291. -- rect: left=312 top=190 right=205 bottom=330
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 0 / 0
  294. -- text alignment: 1
  295. -- font id: 0
  296. -- text size: 12
  297. -- style flags: 0
  298. -- line height: 16
  299. -- part name: New Button
  300. ----- HyperTalk script -----
  301. on mousedown
  302.   set hilite of button id 17 to true
  303.   wait 20
  304. end mousedown
  305.  
  306. on mouseUp
  307.   set hilite of button id 17 to false
  308.   visual effect dissolve
  309.   put line 1 of card field "field8" && line 2 of card field "field8" into card field "header" of card "Level2f"
  310.   go to card "Level2f"
  311. end mouseUp
  312.  
  313.  
  314.  
  315. -- part 18 (button)
  316. -- low flags: 00
  317. -- high flags: 0006
  318. -- rect: left=433 top=189 right=204 bottom=451
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: New Button
  327. ----- HyperTalk script -----
  328. on mousedown
  329.   set hilite of button id 18 to true
  330.   wait 20
  331. end mousedown
  332.  
  333. on mouseUp
  334.   set hilite of button id 18 to false
  335.   visual effect dissolve
  336.   put line 1 of card field "field9" && line 2 of card field "field9" into card field "header" of card "Level2g"
  337.   go to card "Level2g"
  338. end mouseUp
  339.  
  340.  
  341.  
  342. -- part 21 (field)
  343. -- low flags: 00
  344. -- high flags: 0000
  345. -- rect: left=112 top=7 right=25 bottom=400
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 0 / 0
  348. -- text alignment: 1
  349. -- font id: 4
  350. -- text size: 12
  351. -- style flags: 256
  352. -- line height: 16
  353. -- part name: field10
  354.  
  355.  
  356. -- part 22 (field)
  357. -- low flags: 00
  358. -- high flags: 0000
  359. -- rect: left=328 top=158 right=183 bottom=436
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 1
  363. -- font id: 3
  364. -- text size: 9
  365. -- style flags: 0
  366. -- line height: 12
  367. -- part name: field5
  368.  
  369.  
  370. -- part 23 (button)
  371. -- low flags: 00
  372. -- high flags: A003
  373. -- rect: left=158 top=310 right=332 bottom=241
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 1
  377. -- font id: 0
  378. -- text size: 12
  379. -- style flags: 0
  380. -- line height: 16
  381. -- part name: Information
  382. ----- HyperTalk script -----
  383. on mouseUp
  384.   visual effect barn door close
  385.   go to card "Dialogue"
  386. end mouseUp
  387.  
  388.  
  389.  
  390. -- part 24 (button)
  391. -- low flags: 00
  392. -- high flags: A003
  393. -- rect: left=278 top=310 right=332 bottom=363
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 0 / 0
  396. -- text alignment: 1
  397. -- font id: 0
  398. -- text size: 12
  399. -- style flags: 0
  400. -- line height: 16
  401. -- part name: Find
  402. ----- HyperTalk script -----
  403. on mouseUp
  404.   doMenu "Find..."
  405. end mouseUp
  406.  
  407.  
  408.  
  409. -- part 25 (button)
  410. -- low flags: 00
  411. -- high flags: A003
  412. -- rect: left=20 top=310 right=332 bottom=88
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 0 / 0
  415. -- text alignment: 1
  416. -- font id: 0
  417. -- text size: 12
  418. -- style flags: 0
  419. -- line height: 16
  420. -- part name: Home
  421. ----- HyperTalk script -----
  422. on mouseUp
  423.   visual effect iris close
  424.   go "Home"
  425. end mouseUp
  426.  
  427.  
  428.  
  429. -- part 26 (button)
  430. -- low flags: 00
  431. -- high flags: 8003
  432. -- rect: left=397 top=310 right=332 bottom=502
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 1
  436. -- font id: 0
  437. -- text size: 12
  438. -- style flags: 0
  439. -- line height: 16
  440. -- part name: Quit Hypercard
  441. ----- HyperTalk script -----
  442. on mouseUp
  443.   doMenu "Quit HyperCard"
  444. end mouseUp
  445.  
  446.  
  447.  
  448. -- part contents for card part 1
  449. ----- text -----
  450. Division
  451.  Manager
  452.  
  453. -- part contents for card part 2
  454. ----- text -----
  455. Secretary
  456.  
  457. -- part contents for card part 3
  458. ----- text -----
  459. Manufacturing
  460. Manager
  461.  
  462.  
  463. -- part contents for card part 4
  464. ----- text -----
  465. Business
  466. Manager
  467.  
  468. -- part contents for card part 6
  469. ----- text -----
  470. Eng. Development
  471. Manager
  472.  
  473. -- part contents for card part 7
  474. ----- text -----
  475. Program
  476. Manager
  477.  
  478. -- part contents for card part 8
  479. ----- text -----
  480. Accounting
  481. Manager
  482.  
  483. -- part contents for card part 9
  484. ----- text -----
  485. Quality Assurance
  486. Manager
  487.  
  488. -- part contents for card part 21
  489. ----- text -----
  490. WIRE WHEEL DIVISION
  491.  
  492. -- part contents for card part 22
  493. ----- text -----
  494. Engineering
  495. Manager